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WAUS HEADER BYTES 
by Hichael R. Seavey 


Qur January 1983 aegeting was held at 
the Ed Fletcher hone. Tow © Wanat 
deaonstrated the gases Miner 2049er, Castle 
Wolfenstein, Facemaker, and Story Machine. 
doin Fisher brought Atari’s new Defender 
cartridge and a SpectoVision Joystick which 
features detachable suction cups for firaer 
control, Eric Radius and I both 
deaonstrated hose built lightpens costing 
under $10. Eric used his Graphics § lightpen 
prograa to show the lack of horizontal 
postion control that has defied the 
*hoaebrew’ lightpen builder up to now. 

We had a short business aeeting at 
which it was agreed to sake a group disk 
purchase. We also agreed to hold = our 
aeetings at the Waterloo Recraetion Center 
on the Jest Sunday of each aonth from 2:00PM 
to Si00PH beginning March 1983, 

New additions to the WAUG library 
included the ANALOG issue #9 disk and the 
seaber typed in gases Thunderbird and Ski 
from COMPUTE magazine. 

Gur February 1983 meeting will be held 
7300 PN, Sunday the 27th at Ed Fletcher’s. 
We will have a the gases Galahad and the 
Holy Grail and Journey to the Planets shown 
tous by Toa Wanat. Qur ain progras will 
be a used Atari hardware and software swap. 
Trade or sell purchased software you have 


sutgrown to a fellow WAUG seaber. Three 


rules we will insist upon: 

1) Trade or sell only original 
gedia. 

2) Inculd the original 
instructions. 

3) Be sure the software boots and 
runs before you exchange it. 

we need your help in providing Atari 

Hardware or the aain prograa for our WNarch 
seating. The Harch meeting will be the 
first at the Rec. Center and I believe Ed is 


going to have it listed in the Waterloo 
Courier Coaaunity activites listing. Sith 
all the Atari Computers that have been on 
sale around town our turnout is apt to be 
high. Please help eake your WAUG a success 
and contact any club officer to let us know 
how you can help. 

If you have a special interest or 


ability relating to ATARI computers or 


software be sure to speak up at the next 
meeting. 


AN ATARI BENCHMARK 


Both the Septeaber 1981 and January 
1983 issues of BYTE eagazine had articles 
about ‘Benchaarking’ micrpcomputers and 
microcomputer languages. Benchearking is a 
way of testing by requiring that given 
outputs be created under the sase rules by 
any of the hardware or software under test. 
Benchaarking tends to be concerned with the 
speed with which the required task can be 
done. But it is isportant to note speed 
should not be the only factor when searching 
for the best tools to do a job. 

In looking over these articles I felt 
the ATAR] was under represented. Thus the 
below Atari Benchaark program was born. 

The prograa uses a method know as the 
Sieve of Eratosthenes to find all Priae 
nuabers between 3 and 16,381, The 
geasuresent of performance is the tiae to 
find the primes ten times. Sua of the 
prograas in BYTE did their initialization 
inside their tigsing loops and sua did not. 
Host had to be run several tiaes and a 
stopwatch used to get the elapsed tiae. 

Below are some of the results that were 
reported in BYTE : 


COMPUTER LANGUAGE TIME IN SEC 


APPLE I] PASCAL, APPLE 140 
APPLE I] FORTH, FULLFORTH 190 
APPLE I] FORTRAN, APPLE 309 
APPLE 1] BASIC, INTEGER 1850 
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APPLE If BASIC, APPLESOFT ©2806 


ATARI 860 PASCAL, APX 190 
IBA PC C 22 
IBH PC FORTH 70 


TB PC BASIC, INTEGER 1950 
IBN PC BASIC, FLOATING PT 2400 


HP-85 BASIC «3084 
T1 99/4 ~—- BASIC, TI 3940 
TRSA0 1 = FORTH, HMS 190 
TRSBO II] BASIC 2880 
TRS80 III BASIC 4780 


We can now add to the list the 
following ATARI 800 tises : 


AYARI 800 BASIC, ATARI 8K 2200 
ATAR] 800 DATASOFT FLOATING 

POINT COMPILED 

ATAR! BASIC 800 


see 0: BENCHARK.LST 


Next we need to have a Forth benchaark 
and a Integer DATASOFT Atari compiler test 
gade. Contact us if you would like to help. 


THE DATASOFT ATARI BASIC COMPILER 


I just recieved the DATASOPT Atari 
Basic Compiler. It is a single copy 
protected disk which allows coapiling of 
Atari Basic programs. Compiling a Basic 
program (known as a source progras) results 
in a sachine language program {an object 
progras) which runs auch faster than Basic. 
The Datasoft Compiler will handle all but a 
handful of Basic statesents and these are 
well pointed out in the documentation and 
trapped during compilation. The coapiler 
allows creation of either an integer or a 
floating point object. Each requires a run 


tiee package on disk. The compiler will work 
on a one drive systes if you are willing to 
either copy a few support. files on to your 
target disk which takes a bit of disk 
swapping, or do what agounts to the sase 
swapping during the  coapilation. The 
complier gakes four passes thru your Basic 
prograa to do its job. ore testing is 
needed to see just how usefull this product 
ig, but ay first ispression is 1002 positive. 


AN ATARI 30 GRAPHICS DEMONSTRATION 
by Steve Ralston - WAUS 


STeve wrote this adaptation of the 
Apple prograa only a few weeks after 
purchasing his 800. Type it in or check a 
copy out of our library and I think you will 
agree he has done a good job. 


see OD: THREED.LST 


TID BITS 
If your thing is Gases WAUG just 
received a special subscription offer and a 
free copy of SOFTLINE. The special offer is 
$9.00 for & bisonthly issues. [f you are 
interested see Ed Fletcher. 
The disk copy #36 of SoftSide contained 
a public doaain version of fig-FORTH that 
looks very attractive as a starting point 
for a Special Interest Group. A disk drive 
is required and I believe 24K RAH. The Forth 
qroup are supporting the project and 
encouraging distribution of the progras. | 
put a copy in the WAUG library, feel free to 
aake a copy and try it. You will need to 
read the article in SoftSide or get a copy 
of Brodie’s Starting Forth. Lets talk it up 
at the seeting and try to get a group 
started. 
IT have talked to Micro Mainfraae about 
the new disk drives that they are 
intreducing for the ATARI. The are now 
starting to deliver a5 1/4* double density 
drive for under $450 and a second drive for 
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$195. They plan to have slie-line sodelsitwe 


drives in the space of { std) yet this 


spring for about the saee price. Double 
sided versions will be available for about 
$45 sore. This will give over 300K per disk 
drive. I don’t know auch about coapatibility 
except that they are all reported to read 
standard ATARI] disks. They will use either 
ATARI 008 2.08 or 085+ 4.0 operating 
systems. They are sending sore info anc 
interested in finding @ local dealer. 

ANALOG $10 arrived Feb 18th but I have 
not received the disk yet. Those whe 
subscribed through WAUG should be getting 
their copies so if you did and you do not, 
let ae know. 1 wrote thea about the out of 
phase disk last sonth but have heard 
nothing. | have not been able to get a phone 
nuaber through inforaation so if any has 
their number please let ae know, The mail is 
too slow, | 

The club disk order is in. You aay pick 


up your disks at the regular aeeting Sunday 
27 February or give ae(ED) a call and drop 
by any tise. They cost the club $196.00 for 
10 boxes (12 disks/box) and will sell for 
$22.00 per box. This will net the Sroup 
$24.00 which will be used for club disks, We 
can get a little better price is we but bulk 
instead of boxed, ($1.45/disk). If wa could 
find a good plastic container that. would 
hold $0 or so we aight consider a bulk order 
next tise, what do you think? 

It burns ay avery tise I go in a 
departaent store and see an atari setting 
there doing nothing. Here is a little 
program that you can type in and run that 
will attract a little attention. 

10 GR. 23 

20 FOR X20 TO 159 

$0 Calel:CO.CsiF C=127 THEN Ce=0 

40 PLAX, ¥sDR.159-%, ¥sDR. 159-%,95-¥ 

00 DR.X,95-¥:OR.%,¥ 

60 Ye¥+2:IF YD95 THEN Y=0 

70 W.X38.2 
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HELP! help! HELP! | 


A very few have worked hard to get the 
Waterloo ATARI Users Group started. It 
appears that we are finally up and running. 
We have about 50 seabers and ost of thee 
are active USERS. However; there is a lot of 
work to be done to keep things runing and 
growing. Your offices need your help! 

We are moving our regular aeetings to 
the Waterloo Recreation Center with the 
Harch seeting. (The February meeting will be 
at 4229 Suburban 7:00pe Sunday the 27th as 
before) Neetings will be on the fourth 
Sunday of each aonth from 2:00 to 5:00pe. We 
will have room for every one but we will 
have to bring our own hardware. Will you be 
willing to bring your Coaputer, TV or Disk 
Drive for one of the seetings? There should 
be at least two at each eeeting. 

Help is needed in the fora of articles, 
reviews and programs for our news letters. 
Aleaost anything that you have done of 
interest to you will be of interest to some — 
other user. We can use articles on tape or 
disk recorded from Text Wizard, Latter 
Parfact, Microtext, or REN statesents in 
basic. Programs should be seperated fron the 
text and listed(not saved or caved), If 
your prograe® is long you aight want to just 
explain how it works in the news letter and 
the let meabers of WAUG get the progran fro 
the library disk, Qut of town aseabers can 
contact the Librarian on aodem using the 
UPDOWN progras also in the library. Just 
call 319 296 1907. We do not have a Host 
computer but it only takes a few seconds to 
transfer a program by direct connect. 

We need leaders for Special Interest 
Groups. You do ot need to be an expert, just 
Willing to do a little home work. I believe 
it is in these working groups that we can 
all learn from each other. 

Lets face it. We will get out of WAUB 
ho wore than we put in. 


an oe : ty 
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Listing of DsBENCHARK.LST 


0 GOSUB 7 


{ FOR I=2 TO B190sIF PEEK{S+I)=2 THEN 4 


9 Paltl+AsKel+PrREM 7 863°)" SPs | 

3 IF (28190 THEN POKE (Sek), 2:K=K+P26 
O10 3 | 

4 CeCeOsNEXT 1:60T0 11 

7 GRAPHICS 18:7 #43 1 TIME"SDIN FS(8! 
92) POKE 559,01 J=PEEK (20) sM=PEEK ( 
19) sHePEEK (18) sAe3s 2202021 sSeADR( 
FS) 

8 CadsFG="1"sF$(8190)2"4"sF$(2) SF Ss RET 
URN 

11 J9=PEEK (20) sNM=PEEK (19) sHH@PEEK (18) 

12 TSINT(ABS ( (HHH) $65536~(HN-N) 8256- ( 
J3-3)) 1600) 410 

{3 POKE 559, 34:7 $622 #63" COUNT "3C 

149 by" LAST "pPs? #4 p" TIME "pT" 5 
eC 8 A 

{5 2 #6" EST "; 7810)" FOR 10" 

16 GOTO {6 

{7 REM ATARI PRINE-SIEVE BENCHMARK 

18 REM ATARI 8K BASIC 

{9 REN BY MICHEAL R. SEAVEY 

20 REM BASED ON JAN 83 & SEP 81 BYTE 

21 REM WATERLOO ATARI USERS GROUP 


Listing of Ds THREED.LST 


SO REM RERSPECTIVEVIEW OF A 3-D 

60 REN OBJECT 

70 RER | 

BO REN WRITTEN BY ANDREW PICKHOLTZ 

85 REM JANUARY 1981 - BYTE DEC 82 

90 REM 

100 REN ADAPTED TO ATARI BASIC 

105 REN BY STEVE RALSTON, NOV 82’ 

340 X=Ys7sX3sV3=73ANeBNeCN=DAeENSF AEG 
Hels [Hep=PeBsialjaVsl){s¥1=0 

360 DIA V(50,3) E4190) 

365 2Me3.2sREN 200M FACTOR 

370 REM READ DATA 

380 READ HV 


390 FOR Wei TO RV 

410 READ 0,R,§ 

420 VAN, 1)2087MsY(N, 2)=R8ZHs VIN, 3) 5824 

430 NEXT N 

440 READ NE 

470 FOR Nei TO NE 

4980 READ VAL 

490 E(W)@VALENERT N 

510 REM COMPUTE OBSERVERS PARANS 

520 275 

540 P=6,288RND (0) -3. 14159 

560 Bad 

580 Hab. 26¢RND (0) 

400 BOSUB 20100 

620 XV=-DECPRSH 

640 Y¥=-DECPSCH 

460 1V=-DEGP 

700 REN PROJECT NE POINTS 

710 GRAPHICS 7#14 

720 FOR E=1 T0 NE 

800 X=V(ABS(E(E)}, 1) 

820 Ya (ABS(E(E)) 2) 

840 1a (ABS(E(E)) ,3) 

B40 SOSUB 20720 

900 IF E(E}}0 THEN COLOR 1sPLOT Ui, Vis 
BRANTO U,V 

930 Uist: VieV 

940 NEXT E 

1180 FOR PAUSE20 TO 1000:NEXT PAUSE 

1200 BOTO 520 

20100 REM COMPUTE 3-D PROJECTION 

20140 CH=COS(H) sSH=SIN(H) 

20160 CP=COS(P) :SP=SIN(P) 

20180 CB=COS(B) :SB=SIN(B) 

20200 REN SETUP HATRIY 

20220 AN=CBSCH-SHESPSSB 

20280 BH=-CRSSH-SPECHESB 

20260 CHaCPESB 

20280 DN=GHSCP 

20300 EN=CPSCH 


20320 FRSSP 


20340 GH=-CHESB-SHESP ECE 

20360 HH=SH8SB-SPSCHECB 

20380 IM=CPSCB 

20400 RETURN 

20700 REM TRANSLATE VIEWER TO ORIGIN 
20720 Lei-iV 
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20740 Y=Y-¥V 
20760 221-7ZV 
20780 REM ROTATE YIEW DOWN Y-AXIS. 
20800 XJ=ANSK+BHY+CNGZ 
20820 Y3=DNSY+ENSY+FHE7 
20840 ZISGMEX+HMSY+ING7 | 
20840 REM PROJECT INTO 2D SCREEN 
20880 U=80+3808%3/¥3 
20900 V248-2,89D923/Y3 
20920 RETURN 
30000 REM NUMBER OF VERTICES 
30020 DATA 8 
30040 REM VERTEX COORDINATES 
30060 DATA 3,3,3 
30080 DATA -3,3,3 
30100 DATA -3,-3,3 
30120 DATA 3,-3,3 
30140 DATA 3,3,-3 
30160 DATA -3,3,-3 
30180 DATA -3,-3,-3 
30200 DATA 3,-3,-3 
31000 REM NUMBER OF EDGES 
31020 DATA 16 
31060 REN NEG, EDGES START NEW CURVES 
$1080 DATA -1,2,3,4,1,5,6,7,8,5 
31100 DATA -2,4 
31120 DATA -3,7 
31140 DATA -4,8 


MINTRERU 

There have been a uaber of requests for 
a listing of the prograas that we have o the 
WAUS Library disks. — 

The Feb §3 issue of the JACG letter 
contained suggestions on a@aking a readable 
disk label(or list) in ainiaua space, 50 We 
have included a list of the disks that are 
not checked out at this tine. 

Two sources have been used for these 
prograss; i)Public domain from users. 
2)Typed from magazines and intended to be 
used with your copy of the aagazine. They 
are really not auch good without the 
docugetation but you can get an idea what 
you are aissing if you are not a subscriber. 
A number offer group rates So see your 
secretary and save. | 
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Quality Se en cee 
Discount Prices 


see Ed First 


PEOPLES ue Vaud. HARDWARE 


320 LAPORTE ROAD WATERLOO, IOWA 50702 
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PUBLICATION POLICY 

The WAUG News Letter will be published 
once each gonth except August and Deceaber. 
It is distributed to WAUG Meabers and to 
other ATARI USERS groups who join WAUG or 
provide copies of their News Letters, 

Meabers of WAUG say place three line 
adds(150 characters) of a noncomaercial 
nature free of charge. 

Commercial advertisements will be 
accepted at the rate of $1.00 per coluan 
centimeter (150 characters). Half page adds 
will be run for $10.00 per issue or three 
issues for $25.00, 

Send copy (and check) to WAUG 4229 
Suburban Drive, @aterloo IA 90702, 


WATERLOO ATARI USER’S GROUP 
OFFICERS 


PRES,. Hike Seavey 235 9292 
SEC....£0 Fletcher 296 1407 
EDITOR. John Fisher 232 4890 
TREAS. Doug Weaver 638 6221 


ANWUAL DUES are $10.00. Membership 
includes a subscription to the Club news 
letter and use of the Club library. 

WAUG aeets the fourth Sunday of each 
gonth, except Deceaber. 

THIS GROUP I8 NOT IN ANY WAY AFFILIATED 
WITH THE ATARI COMPANY. 
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Waterioo Atari Users Group 
LA 30702 


$229 Suburban Drive 


Waterloo, 
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